BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Ap-Az/ArticleIndex.cpt/File Index/background_2287.txt

Text File | 1989-05-05 | 5KB | 206 lines

-- background: 2287 from stack: in
-- bmap block id: 2612
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=65 right=82 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Source


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=261 right=287 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=335 top=65 right=83 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 12 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=88 top=86 right=279 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Synopsis


-- part 14 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=455 top=21 right=55 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Srt
----- HyperTalk script -----
on mouseUp
  sort by field "Source"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=7 top=130 right=182 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search For
----- HyperTalk script -----
on mouseUp
  ask "Please enter some text for searching."
  if it is empty then exit mouseUp
  put it into searchString
  find searchString
  if the result is not empty then
    answer "Can't find the search text in this stack."
    exit mouseUp
  end if
  put "find"&"e&searchString"e
  hide msg
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=23 top=301 right=335 bottom=55
-- title width / last selected line: 0
-- icon id / first selected line: 23270 / 23270
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Button
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  ZoomRect the rect of me, the rect of bkgnd field "NewField 1"
  set lockscreen to true
  show bkgnd button "Close Button"
  show bkgnd field "NewField 1"
  show bkgnd field "NewField 2"
  hide bkgnd button "Open Button"
  set lockscreen to false
  set hilite of me to false
  click at 300,100
  type "If you would like a copy of any article referenced "
  type "in this stack send $5 with your request to: "
  type "Paul DiBara                "
  type "29 Pleasant St., "
  type "Rockland,  MA  02370"
  set locktext of field "NewField 2" to true
end mouseUp



-- part 20 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=203 top=59 right=261 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: NewField 1


-- part 22 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=248 top=60 right=75 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 14184 / 14184
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Button
----- HyperTalk script -----
on mouseDown
  ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  set lockscreen to true
  show bkgnd button "Open Button"
  delete word 1 to 100 of field "newfield 2"
  hide bkgnd field "NewField 1"
  hide bkgnd field "NewField 2"
  hide bkgnd button "Close Button"
  set locktext of field "NewField 2" to false
  set lockscreen to false
end mouseDown





-- part 23 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=203 top=75 right=257 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NewField 2